home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / rexx / perfectkrsnake.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-20  |  682b  |  52 lines
  1. /*
  2.  * $VER: PerfectKRSNAke.rexx 1.0 (urk) by Petter E. Stokke
  3.  *
  4.  *  This ARexx script plays a perfect game of KRSNAke (but is very dull to watch...)
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS KRSNAKE
  9.  
  10. SET SPEED 5
  11. NEWGAME
  12.  
  13. /* Go to starting position */
  14.  
  15. WAIT 14
  16. LEFT
  17. WAIT 15
  18. UP
  19. WAIT 1
  20. RIGHT
  21. WAIT 1
  22.  
  23. score = 0
  24.  
  25. DO WHILE score<1024
  26.     count = 15
  27.     DO WHILE count>0
  28.         WAIT 30
  29.         DOWN
  30.         WAIT 1
  31.         LEFT
  32.         WAIT 30
  33.         DOWN
  34.         WAIT 1
  35.         RIGHT
  36.         count = count-1
  37.         GET PLAYING
  38.         IF result = 0 THEN EXIT
  39.     END
  40.     WAIT 30
  41.     DOWN
  42.     WAIT 1
  43.     LEFT
  44.     WAIT 31
  45.     UP
  46.     WAIT 31
  47.     RIGHT
  48.     WAIT 1
  49.     GET LENGTH
  50.     score = result
  51. END
  52.